home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 05-12.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  693 b   |  42 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   decreasing : integer;
  6.   i          : integer;
  7.   old_mode   : integer;
  8.   RGBvalues  : array [0..20] of shortint;
  9.  
  10. begin
  11.   old_mode := fg_getmode;
  12.   fg_setmode(19);
  13.  
  14.   for i := 9 to 15 do
  15.   begin
  16.     fg_setcolor(i);
  17.     fg_text('*',1);
  18.   end;
  19.  
  20.   fg_getdacs(9,7,RGBvalues);
  21.   fg_waitfor(18);
  22.  
  23.   repeat
  24.   begin
  25.     decreasing := 0;
  26.     for i := 0 to 20 do
  27.     begin
  28.       if (RGBvalues[i] > 0) then
  29.       begin
  30.         dec(RGBvalues[i]);
  31.         decreasing := 1;
  32.       end;
  33.     end;
  34.     fg_setdacs(9,7,RGBvalues);
  35.     fg_waitfor(1);
  36.   end;
  37.   until (decreasing = 0);
  38.      
  39.   fg_setmode(old_mode);
  40.   fg_reset;
  41. end.
  42.